home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaj.d64 / lst.turnto < prev    next >
Text File  |  2007-02-28  |  545b  |  24 lines
  1. 9000 //
  2. 9010 ╞╒╬├ DEG(R) ├╠╧╙┼─
  3. 9020   ╥┼╘╒╥╬ 57.2957795*R
  4. 9030 ┼╬─╞╒╬├ DEG
  5. 9040 //
  6. 9050 ╞╒╬├ RAD(D) ├╠╧╙┼─
  7. 9060   ╥┼╘╒╥╬ .017453295*D
  8. 9070 ┼╬─╞╒╬├ RAD
  9. 9080 //
  10. 9090 ╞╒╬├ RHO(X,Y) ├╠╧╙┼─
  11. 9100   ╔╞ ┴┬╙(X)<1E-08 ╘╚┼╬ ╥┼╘╒╥╬ ╨╔*(Y<0)
  12. 9110   ╔╞ ┴┬╙(Y)<1E-08 ╘╚┼╬ ╥┼╘╒╥╬ ╨╔/2*╙╟╬(X)
  13. 9120   ╔╞ Y<0 ╘╚┼╬ ╥┼╘╒╥╬ (╨╔/2+┴╘╬(-Y/X))-╨╔*(X<0)
  14. 9130   ╥┼╘╒╥╬ ┴╘╬(X/Y)
  15. 9140 ┼╬─╞╒╬├ RHO
  16. 9150 //
  17. 9160 ╞╒╬├ THETA(X,Y) ├╠╧╙┼─
  18. 9170   ╥┼╘╒╥╬ ╙╤╥(X*X+Y*Y)
  19. 9180 ┼╬─╞╒╬├ THETA
  20. 9190 //
  21. 9200 ╨╥╧├ TURNTO(X,Y) 
  22. 9210   SETHEADING(DEG(RHO(X-XCOR,Y-YCOR)))
  23. 9220 ┼╬─╨╥╧├ TURNTO
  24.